﻿Option Explicit On
Option Strict On

Namespace Framework.Hardware

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Class MeasurementMetricUpdatedEventArgs
        Inherits EventArgs

#Region " Private Members "

        Private m_Metric As MeasurementMetricType
        Private m_Value As String

#End Region

#Region " Constructor "

        ''' <summary>
        ''' Constructor
        ''' </summary>
        ''' <param name="Metric"></param>
        ''' <param name="Value"></param>
        ''' <remarks></remarks>
        Public Sub New(ByVal Metric As MeasurementMetricType, ByVal Value As String)
            m_Metric = Metric
            m_Value = Value
        End Sub

#End Region

#Region " Public Properties "

        Public Property Metric As MeasurementMetricType
            Get
                Return m_Metric
            End Get
            Set(ByVal value As MeasurementMetricType)
                m_Metric = value
            End Set
        End Property

        Public Property Value As String
            Get
                Return m_Value
            End Get
            Set(ByVal value As String)
                m_Value = value
            End Set
        End Property

#End Region

    End Class

End Namespace